Aminet 28/Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso/Aminet/dev/amos/AMOSList-0998.lzh/AMOSLIST/000176_bounce-amos-lis…[e-mail]_Tue Sep 8 15:16:47 1998.msg

Text File | 1998-10-01 | 13KB | 739 lines

>From bounce-amos-list--1037-mcox=[e-mail]  Tue Sep  8 15:16:47 1998
Received: from onelist.com (pop.onelist.com [209.207.135.229])
    by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id PAA29902
    for <[e-mail]>; Tue, 8 Sep 1998 15:16:47 -0400 (EDT)
Received: (qmail 4002 invoked by alias); 8 Sep 1998 19:14:29 -0000
Received: (qmail 3992 invoked from network); 8 Sep 1998 19:14:27 -0000
Received: from unknown (HELO mail.enterprise.net) (194.72.192.18) by pop.onelist.com with SMTP; 8 Sep 1998 19:14:27 -0000
Received: from enterprise.net ([e-mail] [195.188.53.160]) by mail.enterprise.net (8.8.5/8.8.5) with SMTP id UAA29112 for <[e-mail]>; Tue, 8 Sep 1998 20:16:34 +0100 (GMT/BST)
From: Andrew Crowe <[e-mail]>
To: [e-mail]
Date: Tue, 08 Sep 1998 20:14:05 +0000
Message-ID: <[e-mail]>
In-Reply-To: <[e-mail]>
X-Mailer: YAM 2.0 Preview5 - Amiga Mailer by Marcel Beck - http://www.yam.ch
Organization: Manta Soft
Mailing-List: list [e-mail]; contact http://www.onelist.com
Delivered-To: mailing list [e-mail]
Precedence: bulk
Reply-to: [e-mail]
Mime-Version: 1.0
Content-type: multipart/mixed; boundary="BOUNDARY.1197043328.2"
Subject: [amos-list] faster line vector proggy
Status: O
X-Status:

From: Andrew Crowe <[e-mail]>

Warning: This is a message in MIME format. Your mail reader does not
support MIME. Some parts of this message will be readable as plain text.
To see the rest, you will need to upgrade your mail reader.


--BOUNDARY.1197043328.2
Content-Type: text/plain

Hi Everybody,

    Now my vector drawing program runs all my shapes at 50fps on a
lowres 2 colour screen when compiled. its still quite slow, but it does
work quite well. (might make a game with it when I've sorted out my RPG
engine)


See ya.
--
                                <PRE>
  - --------------------- Quote of the day: ---------------------- -
It is better to have tried and failed than to have failed to try, but
the result's the same.
-- Mike Dennison

+--------------------------------------------------------------------+
|                                                ,aNNN               |
|  a&   NL                 ,a,                 ,gNNNNN               |
|  @7L d 0   ,a,,aw ,a,,  JN Q,  ,a,,aw,,,,  ,gNM"`NN'               |
| J  9w"  K N" "" NN"""""WF  ~3&N" "" N   ""^N"    NF                |
| N , " , Nd ,@M, NN JML @ML d@N ,@4, N       ',  JK                 |
|d JMc dN  N  NN  NN 0 1 1J1 0 0  NN  N         L,K                  |
|N,N 0w' Na@h,,a,,NQ,0 &J1J&,0  \,,a,,N         JF                   |
| ""  "  ~"  ""~"""~"" ""  """  t""~"""        j"1                   |
|                               F             JgmJ        ,gm        |
|                               F            N"  N  ,,    F ,N gNN   |
|      Andrew Crowe             Q          jJF  mP p""9w,NL NwmP 0mw |
|      ~~~~~~~~~~~~             ]         / I  0 F@ am, Nw  ,0&   ,N |
|       Manta Soft             ,F\      a' ,N  Nf L E 0 0ML N""N 0"  |
|       ~~~~~~~~~~            ,N  \,  ,P N@"  JF  & `@" NJL N  N 0   |
|                            ,N     ad"   \wam"   `Nx,aN JNmN  NmN   |
|                            NN ,,gN" ""PP"                          |
|                           dNNNNN"                                  |
|                           NNN@"      Web Designing and          // |
| Visit our Web Site:       ""               Amiga Programming \\//  |
|                                                                    |
|     HTTP://www.geocities.com/Eureka/Gold/1713/                     |
|                                                                    |
+----------------------------+      This signature was created using |
| [e-mail] |         AsciiArt Studio               |
+----------------------------+---------------------------------------+
                                </PRE>
--BOUNDARY.1197043328.2
Content-Type: text/plain; charset=iso-8859-1; name="Vector.asc"
Content-Disposition: attachment; filename="Vector.asc"
Content-Transfer-Encoding: quoted-printable

Set Buffer 64
'
'Rotating line gfx by
'
'     [e-mail] =

'

Dim TMP(5,99,3),POS(5,99,3),SN#(360),CS#(360)
Global TMP(),POS(),SN#(),CS#()

Degree =


For A=3D0 To 359
   SN#(A)=3DSin(A)
   CS#(A)=3DCos(A)
   SN#(A)=3DSN#(A)/32
   CS#(A)=3DCS#(A)/32
Next =



'
' PS. limit of 99 lines per shape  =

'    (not going to use more then that are you?)
'
' Format used to store line gfx:   =

'
' TMP(shape_no,line_no,n)  =

'
' n=3D0 - X1 =

' n=3D1 - Y1 =

' n=3D2 - X2 =

' n=3D3 - Y3 =

'  =

' Pos(shape_no,line_number,n)  =

'
' n=3D0 - Ang1 =

' n=3D1 - Dist1  =

' n=3D2 - Ang2 =

' n=3D3 - Dist2  =

'  =


GRID=3D16
'  =

' Grid Makes it easier to make shapes  =

'  =

'   ( use + and - to adjust in editor no not change that line /\ ) =

'

Degree =


'
' Use degrees! =

'


Change Mouse 2

Screen Open 0,320,200,4,Lowres
Flash Off =

Colour 1,$FFF
Colour 2,$666
Colour 3,$F00
Curs Off =

Cls 0

Double Buffer =

Autoback 0

Print At(0,0);"Please select centre of rotation"

Screen Swap =


Repeat =

   X=3DX Screen(X Mouse)/GRID
   Y=3DY Screen(Y Mouse)/GRID
   X=3DX*GRID
   Y=3DY*GRID
   CX=3DX
   CY=3DY
   Wait Vbl =

Until Mouse Key

Cls 0

Print At(0,0);"Please draw the shape with left mouse"
Print "  Middle mouse deletes last line done"
Print "(Press Right mouse when finished)"
Print =

Print "  Press mouse to continue"

Plot CX,CY


Screen Swap =


Repeat : Wait Vbl : Until Mouse Key=3D0
Repeat : Wait Vbl : Until Mouse Key
Repeat : Wait Vbl : Until Mouse Key=3D0

NUN=3D-1

BUFF=3D-1

For A=3D0 To 99
   TMP(0,A,0)=3D-1
Next =


'
'  Clear line buffer to avoid doing too many lines when drawing
'
'
'


Repeat =

   =

   X=3DX Screen(X Mouse)/GRID
   Y=3DY Screen(Y Mouse)/GRID
   M=3DMouse Key
   X=3DX*GRID
   Y=3DY*GRID
   I$=3DInkey$
   =

   If I$=3D"l"
      Gosub L
      UNCONVERT[0,CX,CY]
      BUFF=3DParam
   End If =

   If I$=3D"s"
      CONVERTSHAPE[0,CX,CY]
      Gosub S
   End If =

   =

   If I$=3D"=3D"
      Add GRID,GRID,1 To 16
   End If =

   If I$=3D"-"
      Add GRID,-GRID/2,1 To 16
   End If =

   =

   If GRID>1
      For GX=3D0 To 320 Step GRID
         For GY=3D0 To 200 Step GRID
            F Plot GX,GY,2
         Next =

      Next =

   End If =

   =

   =

   =

   If M=3D4
      TMP(0,BUFF,0)=3D-1
      BUFF=3DBUFF-1
      Repeat : Wait Vbl : Until Mouse Key=3D0
   End If =

   =

   If BUFF>-1
      For A=3D0 To BUFF
         F Draw TMP(0,A,0),TMP(0,A,1) To TMP(0,A,2),TMP(0,A,3)
      Next =

      =

      Ink 2
      F Draw TMP(0,A-1,0),TMP(0,A-1,1) To TMP(0,A-1,2),TMP(0,A-1,3)
      =

   End If =

   If BUFF>-1
      For A=3D0 To BUFF
         F Plot TMP(0,A,0),TMP(0,A,1),3
         F Plot TMP(0,A,2),TMP(0,A,3),3
      Next =

   End If =

   =

   Ink 1
   Plot CX,CY
   Plot X,Y
   =

   =

   If M=3D1
      OX=3DX
      OY=3DY
      Repeat =

         X=3DX Screen(X Mouse)/GRID
         Y=3DY Screen(Y Mouse)/GRID
         M=3DMouse Key
         X=3DX*GRID
         Y=3DY*GRID
         Ink 1
         =

         F Draw X,Y To OX,OY
         =

         If GRID>1
            For GX=3D0 To 320 Step GRID
               For GY=3D0 To 200 Step GRID
                  F Plot GX,GY,2
               Next =

            Next =

         End If =

         =

         Ink 3
         Plot CX,CY
         Ink 1
         Plot X,Y
         =

         If BUFF>-1
            For A=3D0 To BUFF
               Ink 3
               F Draw TMP(0,A,0),TMP(0,A,1) To TMP(0,A,2),TMP(0,A,3)
            Next =

         End If =

         =

         Screen Swap =

         Wait Vbl =

         =